From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 27 May 1993 23:48:18 +0000 (+0000)
Subject: (mark_object): Add debugging code to check for ptr clobbered.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95879
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6b5fd105cefb333edfd2a39af1c6428bfb1c4e19;p=emacs.git

(mark_object): Add debugging code to check for ptr clobbered.
---

diff --git a/src/alloc.c b/src/alloc.c
index 48117d4e356..a6f554ad086 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1623,7 +1623,11 @@ mark_object (objptr)
 	    XUNMARK (obj);
 	    goto loop;
 	  }
+	if (ptr == 0)
+	  abort ();
 	mark_object (&ptr->car);
+	if (ptr == 0)
+	  abort ();
 	objptr = &ptr->cdr;
 	obj = ptr->cdr;
 	goto loop;